1˛ ó ˚ Çî #î H† 2 ÅD o ! âe c ∑q | √ û πaµ Ä ˇˇˇˇˇˇ 8 ŧ Q § E ∞ “ b I= <Ä Ç@ ∞@ ºL ÿ é …Bí Ä ö ”^ Ä Äfi ( x AV l pb 4 Á ‚õ óÄ
d’ Ä Åp î Æ~ à ‹ä ° Δ í∞m <Ä ÄÄN ' † A Ó ' † A Ó 5 « ˇˇˇˇˇˇ Œ™Œ Œ Ä: : F : F ' Õ ÄT G a G a . 7 Õ Ä.7 m 17 m 1R Õ Ä / I T h / I T h A X ÕDIB ˛X ∏( Ì –X
aQaQa w±qpq pww[ Zˇˇ™ ˇ Z R™w πwçPå¢ bwπw~ … ˛ ç~ ™… ˛ ç~ ™… ˛ ~ … ˛ çqpq ™a Twwpqpåwq±!™ Zˇˇ™ ˇ Z R™∏ wπwPSh ãπ}™~ ç~ ™ ç~ ™ ~ ™ çpqq T P T P ∏wq™pq vwR™ Zˇˇ™ ˇ Z R™x ∏wπp ™ '∏~±∏~6 q~6™6 q~6™6 ~66™6 qpp™p çwppq™p qw[™ Zˇˇ™ ˇ Z R∏}≤}w∏p '±~∏xw∏.≈qp qwwwR™ Zˇˇ™ ˇ Z R~π}±πw™π ø}≤}∏~ø™ P P P P P P P PP™PQ aQaQaQaQa iqçpq™p çxQ™ Zˇˇ™ ˇ Z R™∏ }πwπ}w≤π}≤}π≈™ P P P P P P P QPQPQ aQaQaQa iwqwåwq wR ™ Zˇˇ™ ˇ Z R™Ñπ ~æπ∏ø™π øπ≈P P P P P P P ™PQ aQaQaQa i}w±w }±~Q Zˇˇ™ ˇ Z Rø*™ ø ≈ ™ P P P P P P P P QPQPQ aQaQaQa i~w™w ±w±ÑR™ Zˇˇ™ ˇ ™ »ø≈…!™ P P P P P P P QPQ™Q aQaQa i~±±w™}π Q Z™ˇ ˇ le™l kd ™ ≈ø≈P P P P P P P P QPQPQ aQaQa i~∏}± w}πQ Zˇˇ™ ˇ d™dl ¨l≤l Δø…P P P P P P P ™P PP™PQ aQaQaQaQa iπ}™w }~∏~R™ Zˇˇ™ ˇd eldl r•rk ø≈P™ P P P P P P P QPQPQ aQaQaQa
i~±≤}±∏~øQ Zˇˇ™ ˇ d*d)\klr¶qW W™ ≈… ™ P P P P P P P QPQ™Q aQaQa
iπ}}≤}~πøQ Zˇˇ™ ˇ dd clklc ……! P P P P P P P QPQPQ aQQQaQa
iøπ±}±}πÑR Zˇˇ™ ˇ $ ldkd ™ Ñ≈T P P P P P P PQ aQaQaQa
iπ}∏≤}π∏øQ Zˇˇ™ ˇ ^ d
*V# c ≤…ø P P P P P P P P QPQPQ aQaQaQa
i}π~}π}πøR Zˇˇ™ ˇ !$c#W*^™d *øø≈ P P P P P P P QPQ™Q aQaQa
STXTX Δ e † ¶--macro sharestartput 0 into pacoRefNumif the machineType <>256 then openXlib string(GoUpALevel(the pathName)&"XCMDS")macro locSprite n put (the left of sprite n) into Where put ", "&(the top of sprite n) after Where return Whereend locSpritemacro GetPath whatKind set theFile = fileIO(mNew, "?read", string(whatKind)) if not objectp(theFile) then if theFile = -43 then return "" exit else alert "Sorry, movie couldn't be opened."&return&return &"Error: "&string(theFile) return "" exit end if end if return theFile(mFileName) theFile(mDispose)end GetPathmacro GoUpALevel Path delete char (the number of chars in Path) of Path put (the number of chars in Path) into x repeat while x > 0 if charToNum(char x of Path) = 58 then exit repeat delete char x of Path put x - 1 into x end repeat return Pathend goupalevelmacro GoOtherMovie folderName, moviesName return string(GoUpALevel(the pathName))&string(folderName)&":"&string(moviesName)end goothermoviemacro StartPACO fileName, whereAt, preload, centerglobal pacoRefNum,commandupdatestage when mousedown then nothingput word 1 of fileName&word 2 of fileName&word 3 of fileName&word 4 of fileName&word 5 of fileName into fileNameput (chars(fileName,1,3)&chars(fileName,length(fileName)-3,length(fileName)))&".cv" into filenameif the machineType=256 then startpaco2 (fileName, whereAt, preload)if the machineType=256 then exit put XPlayPACo("openfile",string(GoUpALevel(the pathName))&"PACOS:"&string(fileName)) into pacoRefNum if pacoRefNum contains "error" then exit XPlayPACo("set",pacoRefNum,"posX", integer(value((item 1 of whereAt) + (the stageLeft))),"posY",integer(value((item 2 of whereAt) + (the stageTop))),¬"centering", 0, "loopCount", 1) XPlayPACo("set",pacoRefNum,"clearscreen",0,"nudgeposition",0,"redrawscreen",1, "window",0) if preload = 1 then unload XPlayPACo("allocate",pacoRefNum) XPlayPACo("load",pacoRefNum) end ifplaypacoClosePacoif preload=1 then cursor -1 end ifmacro Startpaco2 fileName, whereAt, preload global pacoRefNum,commandput char 1 of the pathname into driveif preload<>1 then put 0 into preloadput 1 into niput xwin(mnew) into winxput winx(mhwnd) into windowhandleput "playfile"&&drive&":\HCDEMO\DEMO\PACOS\"&chars(fileName,1,length(filename)-2)&"bk"&&"-ctr 0 -posx"&&integer(value((item 1 of whereAt) + (the stageLeft)))&&"-posy"&&integer(value((item 2 of whereAt) + (the stageTop)))&&"-ni "&ni&" -pfd"&&(abs(preload-1))&&"-acm 1 -window"&&windowhandle into commandpaco(mnew,command)put "playfile"&&drive&":\HCDEMO\DEMO\PACOS\"&(fileName)&&"-ctr 0 -posx"&&integer(value((item 1 of whereAt) + (the stageLeft)))&&"-posy"&&integer(value((item 2 of whereAt) + (the stageTop)))&&"-ni "&ni&" -pfd"&&(abs(preload-1))&&"-acm 1 -window"&&-1 into commandpaco(mnew,command)winx(mdispose)exitmacro PLayPACO global pacoRefNum if pacoRefNum contains "error" then exit XPlayPACo("play",pacoRefNum)macro ClosePACO global pacoRefNum if pacoRefNum contains "error" then exit XPlayPACo("set",pacoRefNum,"redrawScreen",0) XPlayPACo("deallocate",pacoRefNum) XPlayPACo("close",pacoRefNum) put 0 into pacoRefNum macro playaiff2 filenameput filename&".wav" into filenamesound playFile 1, string(GoUpALevel(the pathName))&"SFX:DemoSFX:"&string(filename)macro PlayAIFF fileNameglobal path,filenput the pathname into pathput word 1 of fileName&word 2 of fileName&word 3 of fileName&word 4 of fileName&word 5 of fileName into fileNameput (chars(filename,1,7)) into fileName sound playFile 1, string(GoUpALevel(path))&"SFX:DemoSFX:"&string(fileName)end playaiff
*Ä Ä$"ħVWCI4 e mm1VWCI? e Hell Cab Logo VWCI> e Checker stripVWCIC e HC Flyer (back) Fx VWCIM ¡ e ¸t on mouseUp end mouseUpmm1VWCI< √ e engine loopVWCIM « e ¸ on mouseUp end mouseUpmm1VWCIM » e ¸ on mouseUp end mouseUpmm1VWCIR … e ¸x " " " "on mouseUp end mouseUpflagDownVWCIb e ¸(, ' 2 2 2 2on mouseUp showSoulOmeterend mouseUp
smallmeterVWCIJ À e ¸Ä on mouseUp end mouseUp VWCIM Õ e ¸D on mouseUp end mouseUpmm1
